home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / td187src.lzh / COMMONDA.D < prev    next >
Text File  |  1991-12-14  |  3KB  |  92 lines
  1. DEFINITION MODULE CommonData ;
  2.  
  3. (* Globale Daten, die von allen Modulen eingesehen werden können *)
  4.  
  5. FROM MagicSys IMPORT sINTEGER;
  6. FROM Types    IMPORT TextPosTyp, LatexSpecials;
  7.  
  8. CONST MajorRelease = 01;
  9.       MinorRelease = 86;
  10.       SubRelease   = 03; (* => Version 1.86.3 *)
  11.  
  12. CONST MaxExtension = 12;
  13.  
  14. VAR   InternalResolution : sINTEGER;
  15.       WindowHandle       : sINTEGER ;
  16.  
  17.       ClipXY             : ARRAY [0..3] OF sINTEGER ; (* Clip-Array *)
  18.       OffsetXY           : ARRAY [0..3] OF sINTEGER ;
  19.       (* ^^Offset der linken unteren und der rechten oberen Ecke *)
  20.  
  21.       WorkArea           : ARRAY [ 0..3   ] OF sINTEGER ;
  22.       FileName           : ARRAY [ 0..127 ] OF CHAR ;
  23.       WindowTitle        : ARRAY [ 0..127 ] OF CHAR ;
  24.       Extensions         : ARRAY [ 1..MaxExtension ], [0..10] OF CHAR;
  25.       (* 1 -> LTD : Endung für internes Bildformat *)
  26.       (* 2 -> TEX : Endung für LaTeX-Dateien       *)
  27.       (* 3 -> TEX : Endung für PicTeX-Dateien      *)
  28.       (* 4 -> MF  : Endung für Metafont-Dateien    *)
  29.       (* 5 -> PLO : Endung für HPGL-Dateien        *)
  30.       (* 6 -> FIG : Endung für FIG-Dateien         *)
  31.       (* 7 -> GEM : Endung für GEM-Dateien         *)
  32.       (* 8 -> CSG : Endung für CS-Graphic-Dateien  *)
  33.       (* 9 -> TFM : Endung für Font-Metrics        *)
  34.       (*10 -> GF  : Endung für Font-Dateien 1      *)
  35.       (*11 -> PK  : Endung für Font-Dateien 2      *)
  36.  
  37.       TextPosition       : TextPosTyp ;
  38.  
  39.       LineWidth          : sINTEGER ;
  40.       ZoomNumerator      : sINTEGER ;
  41.       ZoomDenominator    : sINTEGER ;
  42.       MaxCoordX          : sINTEGER ;
  43.       MinCoordX          : sINTEGER ;
  44.       MaxCoordY          : sINTEGER ;
  45.       MinCoordY          : sINTEGER ;
  46.       FatherXOffset      : sINTEGER ;  (* Offset für Vaterobjekte, damit alles *)
  47.       FatherYOffset      : sINTEGER ;  (* am richtigen Platz gezeichnet wird.  *)
  48.       ZeroX, ZeroY       : sINTEGER ;  (* Koordinaten der linken unteren Bild- *)
  49.       XPosx,  XPosy      : sINTEGER ;                                  (* ecke *)
  50.       DXPosx, DXPosy     : sINTEGER ;
  51.       YPosx,  YPosy      : sINTEGER ;
  52.       DYPosx, DYPosy     : sINTEGER ;
  53.       CurrentVectorFont  : sINTEGER ;
  54.       MetaLThin          : sINTEGER ;
  55.       MetaLThick         : sINTEGER ;
  56.       MetaLVThick        : sINTEGER ;
  57.       MetaPAscii         : sINTEGER ;
  58.       SnapX, SnapY       : sINTEGER ; (* Gitterabstand in Vielfachen
  59.                                         der \unitlength *)
  60.  
  61.       NormalColor        : sINTEGER ; (* Noch nicht unterstützt *)
  62.       SelectColor        : sINTEGER ;
  63.  
  64.       Usespecial         : LatexSpecials;
  65.       ObjectCreated      : BOOLEAN ;
  66.       WholeArea          : BOOLEAN ;
  67.       LimitedDisk        : BOOLEAN ;
  68.       OwnHPGLFont        : BOOLEAN ;
  69.       SnapMode           : BOOLEAN ;
  70.       XSnap, YSnap       : BOOLEAN ;
  71.       ShowBezLine        : BOOLEAN ;
  72.  
  73.       LTDPath,
  74.       IMGPath,
  75.       STADPath,
  76.       TeXPath,
  77.       HPGLPath,
  78.       FontPath,
  79.       MetaPath,
  80.       LaTeXPath,
  81.       GFPKPath,
  82.       PiCTeXPath,
  83.       GEMPath,
  84.       PostPath,
  85.       FIGPath,
  86.       CSGPath,
  87.       IncludePath,
  88.       HelpPath          : ARRAY [0..127] OF CHAR;
  89.  
  90. END (* of definition module *) CommonData .
  91.  
  92.